home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs54.d81
/
anvegmin.prg
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
11KB
|
354 lines
1 GOTO910
2 REM ** ML STOP KEY DISABLE **
3 PRINT"x[169]=[133][144][234][169][133][145][234]X` [234][255][169][255][133][155]LX[228]x[169]U[133][144][234][169][228][133][145][234]X`
4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
5 [153]"hhhhhhh`1"
6 [143] ** 4 - POP ML SUBROUTINE **
10 [143] **GENERAL INPUT ROUTINE **
35 [143] +++ INPUT SECTION +++
40 [151]UO,0:UR$[178]"":UI$[178]""
42 [139]UL[178]0[167]UL[178]80
45 [153]" CMDCMD";:[151]UC,0
50 [161]UI$:[139]UI$[178]""[167]50
55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
60 [139]UI$[178][199](20)[167]105
62 [139] [195](UR$)[178][177]UL[167]50
65 [141]120:[143] CHECK FOR VALID CHARACTER
70 UR$[178]UR$[170]UI$
75 [153]UI$;
80 [137]50
85 [143] +++ CHECK FOR HELP REQUEST +++
90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
95 [139]UF[178]1[167][141]240
100 UF[178]0:[153]:[142]
102 [143] ++ CHECK DELETE ++
105 [139][195](UR$)[179]1[167]50
110 UR$[178][200](UR$,[195](UR$)[171]1)
115 [153]"CMD CMDCMD";:[137]50
120 [143] ++ CHECK FOR VALID CHARACTERS ++
125 [139][195](US$)[178]0[167]150
127 US$[178]US$[170]UX$
130 [129]US[178]1[164][195](US$)
135 [139]UI$[178][202](US$,US,1)[167][142]
140 [130]
145 UI$[178]"":[142]
150 [143] ** STANDARD INPUT **
152 [139][198](UI$)[178]46[167][142]
155 [139]UI$[178][199](32)[167][142]
160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
165 [142]
170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
175 [142]
180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
187 [142]
190 UI$[178]"":[142]
195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
197 [141]250
200 [141]245
205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
215 UZ[178]1:UV%[178][194](UT)
216 [137]300
217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
219 [153]"LOAD";
220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
225 [151]UQ,UQ%(UQ[171]UB):[130]
230 [151]U1,U1%
232 [151]U2,U2%
233 [151]U4,U4%
234 [151]U3,U3%[171]1
235 [137]35
240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
245 [153][200](UD$,24);" HELP COMING WAIT ":[142]
250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
255 [142]
300 [143] ** MENU **
301 :
302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
303 :
305 [153]" MENU"
310 [153]" --------------------------------------"
315 [153]" 1. ANIMAL,VEGETABLE OR MINERAL"
320 [153]" 2. STUDENT INSTRUCTIONS"
325 [153]" 3. TEACHER INSTRUCTIONS"
330 [153]" 4. MODIFICATION OF PROGRAM"
335 [153]" 5. QUIT"
340 [153]" --------------------------------------"
345 [153]" PRESS A NUMBER KEY (1-5) ";
350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
351 [139][195](UR$)[177]1[167]300
352 US$[178]""
355 [145][197](UR$)[141]1000,400,500,600,396
360 [137]300
395 [143] ** RE-ENABLE STOP KEY AND END **
396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
398 [153]"CONTLOAD":[128]
399 [141]875:[142]
400 [143] ** STUDENT INSTRUCTIONS **
405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
410 UT$[178]" ATN, (null), OR (null)":UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
475 [153]"RIGHT$F AT ANY TIME YOU WISH TO RETURN"
480 [153]" TO THE (null)VAL(null)(null) PRESS H (null)VAL(null)(null)(null)(null)"
485 [141]835
486 [141]850:[141]1410:[141]835
490 [139]UZ[178]1[167][158]UP%:[137]217
499 [142]
500 [143] ** TEACHER INSTRUCTIONS **
501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
502 UT$[178]" ATN, (null), OR (null)":UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
503 [153]" (null)O THE BEST OF OUR KNOWLEDGE,"
504 [153]" THIS PROGRAM IS IN THE PUBLIC"
505 [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE"
506 [153]" PLEASE CONTACT:"
507 [153]" LENOMMODORE PEEKUSINESS (null)ACHINES"
508 [153]" 3370 (null)HARMACY ATNVE.
509 PRINT" [193]GINCOURT, [207]NTARIO"
510 PRINT" [195]ANADA [205]1[215] 2[203]4"
511 PRINT" (416) 499-4292"
512 UP=1:GOSUB 835:GOSUB 850:
513 PRINT" [208]ROGRAM [206]AME: [193], [214], OR [205]
514 [153]" (null)RITTEN PEEKY : MID$AMES (null). (null)HITEWOOD
515 PRINT" [213]PGRADED [194]Y :
516 [153]" (null)HIS PROGRAM WILL RUN ON ANY
519 PRINT" [208][197][212] 64 [195][207][205][208][213][212][197][210]
520 [153]" LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
525 GOSUB835:GOSUB850
530 PRINT" [212]HIS PROGRAM IS TO TEACH YOUNG "
532 PRINT" CHILDREN THE FORMS OF MATTER (ANIMAL,"
534 PRINT" VEGETABLE & MINERAL) THAT OCCUR IN"
536 PRINT" NATURE. [215]HEN THE CHILD HAS FINISHED"
538 PRINT" THE GIVEN NUMBER OF QUESTIONS (25),"
540 PRINT" HE WILL BE TOLD HIS SCORE AND PERCENT."
542 PRINT" [212]HE TEACHER CAN THEN DECIDE IF THE "
544 PRINT" STUDENT SHOULD TRY AGAIN."
580 GOSUB835
590 IFUZ=1THENSYSUP%:GOTO217
599 RETURN
600 REM ** PROGRAM MODIFICATION INST **
601 PRINT"[147]":POKEUT,UL%
605 UT$=" [193], [205], OR [214]":UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
606 PRINT" [201]F YOU WISH TO ADD NEW WORDS SIMPLY"
607 PRINT" RETURN TO MENU AND THEN PRESS'5' TO"
608 PRINT" [209]UIT. [212]HE SCREEN WILL CLEAR AND SAY [210][197][193][196][217]."
610 PRINT:PRINT" [196][193][212][193] STATEMENTS. [212]O ADD A WORD TYPE IN"
611 PRINT:PRINT" ANY LINE NUMBER BETWEEN 1820 AND 2325
612 [153]:[153]" BUT NOT A NUMBER THAT ALREADY EXISTS."
613 [141]835
614 :[141]850
615 [153]" (null)YPE IN YOUR WORD IN THE SAME FORM
616 PRINT:PRINT" AS THEY APPEAR IN THE LINE PRECEDING."
617 PRINT:PRINT" (IE.1821 [196][193][212][193] '[215][193][212][195][200]','[205]', )."
618 PRINT:PRINT" [206][207][212][197] THAT ABOVE [201] HAVE USED [211][201][206][199][204][197]"
619 PRINT:PRINT" QUOTES('). [217]OU [205][213][211][212] USE [196][207][213][194][204][197] QUOTES"
620 PRINT" LOCATED ABOVE THE [209] KEY."
621 PRINT:PRINT" [210][197][205][197][205][194][197][210]:"
622 PRINT:PRINT" [193]LWAYS PRESS [210][197][212][213][210][206] AFTER MAKING"
623 PRINT:PRINT" CHANGES TO THE PROGRAM."
624 UP=0:GOSUB835
690 IFUZ=1THENSYSUP%:GOTO217
699 RETURN
700 REM ** TO USE 8032 LOAD CBM4032 **
710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
720 [153]" LOAD THE 'CBM 4032' PROGRAM"
730 [158]UU[170]71
740 [128]
797 [143] ** TO USE 8032 LOAD CBM4032 **
798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"
799 [158]1093:[128]
800 [143] ** T I T L E P A G E **
802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
812 [153]"STEP WAIT
814 PRINT" [146] [146][169]
816 [153]" WAIT TAB((null)
818 PRINT"[223] [146]
820 [153]"C O M M O D O R E
822 PRINT"EDUCATIONAL
824 [153]"SOFTWARE
826 REM ** COMMODORE LOGO **
827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
830 T1$="":T2$="":T3$="":T4$="":I=0
832 GOTO300
835 REM ** SPACE BAR PRESS **
840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
844 GETUI$:IFUI$<>" "THEN844
846 RETURN
850 REM ** PAGE DESIGN ROUTINE **
852 UP=UP+1
855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
860 PRINT" --------------------------------------"
864 IFUH<>0THEN870
865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H <RETURN>"
870 UH=0:POKEUO,0:PRINT"":RETURN
875 REM ** PLEASE WAIT REMARK **
880 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... "
885 RETURN
900 REM ** SET UP VARIABLES **
901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
905 UD$=""
906 UP$=" "
907 UT$=" [193], [205], OR [214]":REM PROGRAM TITLE
908 DIMTN$(250),QU$(250),AN$(250),SU$(250):RETURN
910 REM ** SET VARIABLES **
915 GOSUB900
916 :
917 :
920 REM ** CHECK FOR 8032 **
925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
930 IFPEEK(UB+40)<>96THENGOSUB700
931 REM ** MEMORY CHECK **
932 IF FRE(0)>2000THEN937
933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
934 PRINT"MEMORY TO RUN THIS PROGRAM !"
935 SYSUU+71
936 END
937 PRINT"[147]":IFPEEK(50003)=0THEN962
940 REM ** BASIC 2.0 OR 4.0 OR C-64 SETUP **
941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
943 POKE1104,145:POKE1105,234:POKE1082,234
945 IFPEEK(50003)<>160THEN955
950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
955 IFPEEK(50003)<>1THEN990
960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
965 SYSUU+48:REM DISABLE STOP KEY
970 GOSUB800:REM TITLE
980 GOTO300:REM MENU
990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
1270 NR=0:NW=0:UP=0
1280 GOTO1520
1410 PRINT" [201]N THIS GAME [201] WILL TELL YOU THE
1420 [153]" NAME OF AN OBJECT. (null)OU WILL THEN HAVE
1430 PRINT" TO DECIDE IF THE OBJECT THAT [201]'VE
1440 [153]" DISPLAYED ISCLOSEEITHER AN ANIMAL, A
1450 PRINT" MINERAL, OR A VEGETABLE."
1460 PRINT" [212]YPE AN A[146] FOR AN ANIMAL."
1470 PRINT" [212]YPE A V[146] FOR A VEGETABLE."
1480 PRINT" [212]YPE A M[146] FOR A MINERAL."
1490 PRINT" [212]HAT DOESN'T SEEM TOO HARD DOES IT ?"
1510 RETURN
1520 PRINT"[147]":GOSUB875
1525 RESTORE
1530 FORI=1TO250:TN$(I)=""
1540 READ QU$(I),AN$(I),SU$(I):IF QU$(I)="99"THENY=I-1:I=250:
1550 NEXTI
1560 NR=0:WW=0:GOSUB2340
1570 FORZ=1TO25
1580 Q=INT(RND(1)*Y )+1:IF TN$(Q)="*"THEN1580
1590 TN$(Q)="*":Q$=LEFT$(QU$(Q),1)
1600 PRINT""
1610 IFSU$(Q)<>""THENPRINT" IS ";:GOTO1640
1620 IFQ$="A"ORQ$="E"ORQ$="I"ORQ$="O"OR Q$="U"THENPRINT" IS AN ";:GOTO1640
1630 PRINT" IS A ";
1640 PRINT"";QU$(Q):PRINT
1650 PRINT" AN ANIMAL, MINERAL, OR VEGETABLE:";
1660 US$="AMV":UL=1:GOSUB35:A$=UR$
1670 A$=LEFT$(A$,1)
1680 IF AN$(Q)="A"THENRE$="ANIMAL":GOTO1710
1690 IF AN$(Q)="M"THENRE$="MINERAL":GOTO1710
1700 RE$="VEGETABLE"
1710 IFA$=AN$(Q)THENNR=NR+1:PRINT"THAT IS RIGHT!!":GOSUB2331
1711 IF A$<>AN$(Q)THEN1720
1712 GOTO1780
1720 NW=NW+1:PRINT"":IFSD$="N"ORSD$=""THEN1730
1721 REM
1725 REM
1726 REM
1727 REM
1730 PRINT" I'M SORRY BUT THE RIGHT ANSWER IS:"
1740 PRINTTAB(15);"";RE$
1750 GOSUB835
1760 GOSUB2340
1770 TN$=""
1780 NEXTZ
1781 PRINT:PRINT" YOUR SCORE IS";NR;"/";NR+NW;"!!"
1782 PRINT:PRINT" THAT IS ";NR*4;"PERCENT!!"
1790 PRINT" WOULD YOU LIKE TO TRY AGAIN:";
1800 US$="YN":UL=1:GOSUB35:A$=UR$
1810 IFLEFT$(A$,1)="Y"THEN1520
1820 DATA"TREE","V",
1830 DATA"MAN","A",
1840 DATA"COW","A",
1850 DATA"CARROT","V",
1860 DATA"RUBY","M" ,
1870 DATA"MOSQUITO","A",
1880 DATA"PEARL","A" ,
1890 DATA"DANDELION","V" ,
1900 DATA"DOG","A" ,
1910 DATA"GRASS","V" ,1
1920 DATA"DAISY","V" ,
1930 DATA"SAND","M" ,1
1940 DATA"GLASS","M" ,
1950 DATA"BAT","A" ,
1960 DATA"CRICKET","A" ,
1970 DATA"FOX","A" ,
1980 DATA"RABBIT","A",
1990 DATA"LEAF","V" ,
2000 DATA"COMPUTER","M",
2010 DATA"PICTURE","M" ,
2020 DATA"WATER","M" ,1
2030 DATA"FLOWER PETAL","V",
2040 DATA"CLOCK","M" ,
2050 DATA"TELEVISION","M" ,
2060 DATA"DOG","A" ,
2070 DATA"SNAIL","A" ,
2080 DATA"TURTLE","A" ,
2090 DATA"COTTON DRESS","V" ,
2100 DATA"WOOL","A" ,
2110 DATA"COTTON SWAB","V" ,
2120 DATA"PEN","M" ,
2130 DATA"COW","A" ,
2140 DATA"HAMBURGER PATTY","A" ,
2150 DATA"HOT DOG","A" ,
2160 DATA"LETTUCE","V" ,1
2170 DATA"CARROT","V" ,
2180 DATA"CHEESE","A" ,1
2190 DATA"BREAD","V" ,1
2200 DATA"MUSTARD","V" ,1
2210 DATA"AIR","M" ,1
2220 DATA"ASPHALT","M" ,1
2230 DATA"OIL","A" ,1
2240 DATA"GLASS","M" ,1
2250 DATA"TABLE","V" ,
2260 DATA"BLACKBOARD","M" ,
2270 DATA"BOOK","V" ,
2280 DATA"CAR","M" ,
2290 DATA"CARDBOARD BOX","V" ,
2300 DATA"BOTTLE","M" ,
2310 DATA"CHALK","M" ,1
2320 DATA"BACON","A" ,1
2325 DATA"99","999",K
2326 RETURN
2330 DATA"99","999",K
2331 GOSUB835:GOTO2340
2332 REM
2335 REM
2336 REM
2340 UG$="":UT$=" A, M, OR V":GOSUB850:PRINT" [176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174] "
2350 PRINT" [221] NUMBER [221] NUMBER [221] "
2360 PRINT" [221] RIGHT [221] WRONG [221] "
2365 PRINT" [171][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179] "
2366 PRINT" [221] [221] [221] "
2367 PRINT" [221] [221] [221] "
2368 PRINT" [221] [221] [221] "
2369 PRINT" [173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189] "
2410 PRINT""TAB(14)NR
2420 PRINT""TAB(22)NW
2430 RETURN